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MODULE BASSEND ( d of gejor 
spent = *1-018' ! File: BASENDS B32 its “MDL 1018 
= 


EGIN 


TITITITITIIIIILILI LLL LLL iiiiiiiiiiiiiiiiiiiii 


'@ COPYRIGHT (c) ee 1980, 1982, 1984 B 
ie Beil knte hc ceaves CORPORATION, | MAYNARD. MASSACHUSETTS. 
'# ALL RIGHTS RESERVED. 


'* THIS i eo. fs Lutt clinn tue umoer & Rae OF AND MAY BE USED AND sor iee 
: IN ACCOR F SUCH bCeNS AND WITH THE 
:® INCLUSION OF THE ABOVE CoPyRicnt NOT ICE. THIS sort ARE OR ANY OTHER 
Hd sores han MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


e 
a 
ft 
® 
® 
® 
® 
o 
® 
' & 
ie TRANSFERRED. . 
® 
ee 
® 
® 
® 
. 
” 
® 
® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC . 
= eoRPOhAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SS ePReAARRAARAAHHERAHAKAHHHHHHHEHHHHHTHHKHKeeeeeeeeeeeeeeteneeeeeeeeeeeeeee 


lee 
' FACILITY: BASIC-PLUS-2 Frame Support 
i ABSTRACT: 


uw 


These routines set up and tear down frames for BASIC“PLUS=2. 
Frames are used for y > ~- routines, external function 

external subroutines, internal functions (both SERS. aid DEF *s) 
internal subroutines (GOSUBs) and condition handlers. 
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et te a at ss 8 8 a a tn ss a 8 9 9 ss a a i a ss a ts a a a a ss ts OOO 
- 
ee 


' 
' 
] 
' 
' 
' 
t 
! 
040 : 
Boe 4 ; ENVIRONMENT: VAX=11 user mode 
Goss i AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
G03 i MODIFIED BY: 
G04? i 1-001 = Original. 
048 : 1-002 - Change from BASS to BSFS for stack frame names. 485 08-F EB-1979 
049 ! 1-005 - purer any FIELD yeriadles bei eat loce ed. JBS 28-FEB-1979 
bey ; 1-004 - ben allocate. dynani ¢ strings, but ignore fixed sring templates. 
3¢ ! 1-005 - ataoes edit posewothe ¢ all to pur eit variables will be 
05 : issued b by the ¢ ier so that the PIFhe. code need not be 
bee : in the sharable , brary, JBS 02-APR- 
055 1 | 1-006 - Similarly, don't flush virtual arrays, _JBS Q9-APR~1979 
056 1 | 1-007 - Change L BsS and OTS$s. to STR a AY=19 
5 ! 1-008 = Correct calls to STRSFREE1_DX. JBS 22-MAY-1979 


ee a a ws a a a ns st te 


bebe eeanat sansa 


1 = Again correct calls to STRSFREE1_Dx. +t -MAY-197 
1-318 ~ oS JSB entry point to STRBFREE| 3h. ffajon-t 8 
lie aorove the error message ~ othe chee” : ° ret handler 

fal if eit the end of the or ogram. JBS 
§ - call - SSUNWIND when cuttin back GOSUBs. wt 0 “AUG-1979 

- e A. ‘ Rasy are sgontuses. aly ‘ye, 8 188 cial message if the 
- yes “east Ey Ref to to cut back frames. at y weeetere 
- Cut back DEF® frames, too. -NOV- 
- Add ed ‘By run-time dimensioned Seiten PLL 13-May-1982 
= Check frame yoreten x eed before executing run-time array 

code. PLL 1 8. 
- coceuer the pete er to ae storage after unwinding 

UB and DEF*® frames. ec- 
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: 1 i surtenes 

; 8 i : 

; 1 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 1! 

; 1 | LINKAGES: 

3 5 +: : 

; 1 LINKAGE 

; $ 1 BASSINIT_LINK = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2) : ' 
; 1 GLOBAL (BSFSA_MAJOR_STG = 11, BSF EA_RINOR, STG ="10, BSFSA_TEMP_STG = 9) 
: 3 ' NOPRESERVE (8, 7, 65 5, 4, 3. 2. 1,0); 

: % REQUIRE "RTLIN:STRLNK'; ! String Linkages 

: 9% 1! 

; (9S 1 | TABLE OF CONTENTS: 

3 1! 

; 3 1 

; «98 1 FORWARD ROUTINE 

3 BD +4 ' BASSEND_R8& : NOVALUE BASSINIT_LINK; ! end major frame 

: 101 1! 

. % é 1 ' INCLUDE FILES: 

3 : : ! 

; 105 LIBRARY "RTLSTARLE’; ! define desc offsets 

: 107 REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
; 109 REQUIRE "RTLIN:BASFRAME'; ! Define frame structure 
: Wi 1 REQUIRE "RTLIN:BASINARG'; ! Define argument List 

; 118 1! 

: 114 1 | MACROS: 

3; «115 7: 

; 116 1 NONE 

. i 1 i 

: 118 1 | EQUATED SYMBOLS: 

+ 119 1 i 

: 120 1 i NONE 

+ 121 1 i 

: 5 i PSECTS: 

; ' 3 ' DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
: 1 6 1 | OWN STORAGE: 

.. | 1! 

+ 128 1 i NONE 

: 129 1 i 

; ' i EXTERNAL REFERENCES: 

. 4 : ee 

‘fs 1 EXTERNAL 


ete Wgseortage OR:34:38 WARSI OLsescte. v0 
BASSSZ1_RET; ! ARET instruction 
EXTERNAL ROUT INE 


3; 1 1 

> to 38 1 

3 38 1 

s 6Y : 1 NOVALUE ! signals error 

; 1 1 itt tal Dx. R4 : STRSJSB_GETFRE, i deallocate a string 
rf 701 1 BASSSUNWIRD = NOVALUE, ! Unwind a frame 

; 140 7 § 1 BASSHANDLER, ! flags a BASIC frame 

; 13 : ! LIBSFREE_VM; ! deallocate virtual space 
3 128 705 1 !¢ 

3 \¢2 : The following are the error codes used in this module. 

3 | 4s 1 

3; 14 7 1 EXTERNAL LITERAL 

; «(148 v9 1 BASSK_RETWITGOS : UNSIGNED (8), ! RETURN without GOSUB 

: 149 711 «1 BASSK_ILLEXIDEF : UNSIGNED (8), ' Illegal exit from DEF* 
; 150 ne 1 BASSK_ERRTRANEE : UNSIGNED (8), ' ERROR trap needs RESUME 
3 ' , ae : BASSK-PROLOSSOR : UNSIGNED (8); ! Program lost, sorry 


me a tt ss a a i a as ss SS 9 as a ss as ss SS SS SS 4 
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Sep-1 221: AX-11 Bliss-32 V4.0-74 
bs 3op7138e 99:62:68  Leasnte See Saasend.e32; 
GLOBAL o's HE BASSEND_RB ( : ond i major frame 
ARGLIST ! original frame parameters 
) : NOVALUE BASSINIT_LINK = 


+ 
FUNCTIONAL DESCRIPTION: 


Tear down a frame for a BASIC-PLUS-2 major procedure. 

ALL ay | Ssinite is deallocated. The argument is the same 
as for BASS R8, for vol ierty checking. Intervening 
GOS rames aré removed. hese frames had 

save any registers not cal by the + 


FORMAL PARAMETERS: 
ARGLIST.ra.v List of information uso /vh set 


up 
frame. See BASIC-PLUS- ar ik, A. me 
of Generated Code for details. 


better not 
rf procedure. 


IMPLICIT INPUTS: 
The frame, as set up by BASSINIT_R8. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


Deallocates the heap storage and virtual arrays local to this 
major procedure. 


TROP RIT POO PID PRD IRIN PB eh ab eh eB es ss ss ss ss ss ss ss ss 


BEGIN 
EXTERNAL REGISTER 
BSFSA_MAJOR_STG : REF BLOCK (CO, BYTE), 
BSFSA_MINOR_ STG : REF VECTOR, 
BSFSA_TEMP_STG : REF VECTOR; 
BUILTIN 
FP; 
) 
3 ARGLIST : REF BLOCK CO, BYTE] FIELD (BASSINIT_ARGS); ! arg List 
770 REGISTER , 
771 FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD), ! pointer to FCD 


: 211 7 

: \¢ ae 
3 1 774 
3; 62146 775 
3; «215 776 
3 18 77 
3 1 re 
; «218 77 
3; 219 780 
; 0 49! 
; 1 7 ¢ 
3 § 7 

3 784 
3 4 0785 
3 5 0786 
3 6 0787 
3 7 4 
3 8 789 
3 $2 0790 
; 0 0791 
3; 231 444 
3 3 079 
; 2 0794 
3 34 0795 
3 239 0796 
; 236 0797 
3; 237 0798 
; 238 0799 
3; 239 0800 
3; 240 0801 
3 241 ety 
3 ri} 080 
3 24 0804 
3 244 0805 
3 «245 tt 
; 246 080 
; 247 0808 
; see 0809 
3 249 0810 
; 250 0811 
3; 251 oes 
3 26 081 
3; 22 0814 
3 54 ai? 
3 55 16 
2 et 
3; 258 $B19 
; 59 0 
3 60 1 
3; 261 § 
3 o¢ 8 

3; 626 824 
3; 264 4 5 
i; 265 6 
5 66 827 
; 26 0828 


RIPDPININDIPININGPINININPINININ AAA AAI AIP PI NINN NINN WWIII BNI ronononononononuny 


Mm 4 
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BASEND .B32; (3) 
PREV_FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); ! previous FCD : 


‘+ 
! First cut back any GOSUB frames. We wish to make the presence of 
the GOSUB frame invisible except on traceback. 


FMP = FP; 
WHILE. (FMP CBSFSB_PROC_CODE] EQL BSFSK_PROC_GOSB) OR (.FMP CBSFS$B_PROC_CODE] EQL BSFSK_PROC_DEFS)) DO 


We have a GOSUB or DEF* frame, remove it. 


BASSSUNWIND (.FMP); 
FMP CBSFS$A_SAVED_ PC) = BAS$$Z1_RET; 
PREV_FMP =".FMP CBSFSA_SAVED_FPJ; 


all taal CBSFSA_HANDLER] NEQA BASS$HANDLER) 


‘+ 

: The previous frame is not a BASIC frame. This is unreasonable 

! since DEF*s and GOSUBs should only be callable from inside a BASIC main 
: procedure. 


BASS$STOP (BASS$K_RETWITGOS); 
FMP = .PREV_FMP; 
END; 


‘+ 
Make sure this is a major frame. 


CASE AT? CBSFSB_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 


CBSFSK_PROC_MAIN, BSFSK_PROC_SUB, BSFSK_PROC_EXTF] : 
BEGIN 
recover the pointer to temporary storage for this frame. 


BSF SA_TEMP_STG = ,FMP CBSFSA_BASE_R9]; 
[BSF$K_PROC_DEFS) : 
BASSSSTOP (BAS$K_ILLEXIDEF); 


CBSFSK_PROC_DEF, BSFSK_PROC_GOSB, BSF$K_PROC_IOL) : 
BASSSSTOP (BAS$K_PROLOSSOR) ; 


CBSF$K_PROC_ONER] : 
BASSSSTOP (BASS$K_ERRTRANEE); 


COUTRANGE) : 
TES BASSS$STOP (BAS$K_PROLOSSOR) ; 


N 4 
ety NERSSHOM :GD8U WNGHY deta ets 


; 268 9 '¢ 

; 269 H 0 ! Check to be sure that this is the correct exit. This should 

; 270 831 ! never fail, since there can be only one argument List to the 

: eri 8 § ! major procedure. 

aR Rg 

3 7h 835 IF (.FMP CBSFS$A_INIT_ARG] NEQA .ARGLIST) 

; t? 8 $ oi THEN 

; i] 0838 i The argument lists are not at the same address. This exit must not 

3 z8 tte } correspond to the entry. Signal an error. 

; 80 O84) BASS$STOP (BAS$K_PROLOSSOR) ; 

mo Be, 

: 28 0844 i Deallocate any temporary string storage. 

i i meth fishes sattes 

; 286 0847 INCR COUNTER FROM 1 TO .ARGLIST CBAS$L_IN_NO_TSTJ DO 

3 eer 0848 STRSFREE1_DX_R4 (BSFSA_TEMP_STG C(CCOONTER = 1)*2)); 

Be BEE 

; 90 0851 i Deallocate Local dynamic strings. 

: $93 a 

; 9 0854 INCR COUNTER FROM 1 TO .ARGLIST CBAS$W_IN_NO_DST] DO 

3 294 0855 § STRSFREE1_DX_R4 (.FMP CBSFSA_STR_DESC] +7 ((. COUNTER = 1)*(2*%UPVAL))); 
: 596 OBS? 5 ts 

: 297 0858 $ i If there were any run-time dimensioned arrays, deallocate the storage 

: 298 0859 ! that was allocated for their elements. Notice that the frame became 

3 344 0860 ! bigger to accomodate run-time arrays = don't try to deallocate anything 

: 300 OBe for previous versions of the frame which did not support run-time arrays. 

; 30 086 : 

; 0864 IF (,ARGLIST CBAS$B_IN_V_FCD] GTR 1) AND (.FMP CBSFSA_RTA_DESC] NEQ 0) 

: 304 0865 ¢ THEN 

3; 305 0866 BEGIN 

; 309 bB68 *END ADDR 

; 308 0869 ARRAY _DSC_SIZE 

: 309 0870 RTA_DSC :"REF BLOCK (16,BYTEI; 

; 311 087¢ ; RTA_DSC = .FMP CBSFS$A_RTA_DESC): point at Ist rt array dsc 

; le 087 END-ADDR = .RTA_DSC +”. ARGLIST CBASSL_IN_LEN_RTA DT); 

; + ore ? WHICE gRTA_OSC CSS .END_ADDR DO T Loop thru all rt array dsc's 
; 18 0876 4 IF .RTA_DSC CDSC$A_POINTER] NEQ 0 ! make sure REMAP allocated space 
; 317 eth: & LIBSFREE_VM (RTA_DSC COSCSL_ARSIZEJ, RTA_DSC CDSCSA_POINTER]); 
; «4318 879 5 ARRAY_DSC_SIZE = (4 # ! block T constant Size 

3; «6319 baat 5 (1 + .RTA_DSC Bee ae aeTts + ! block z multipliers 
; 320 881 4 (2 * ,RTA_DSC CDOSCSB_DIMCTJ)) * ! block 3, bounds 
3 $) itt) 4 ZUPVAL; !"compute in bytes 

3 ¢ 8835 4 RTA_DSC = .RTA_DSC + .ARRAY_DSC_SIZE; ! advance to next array dsc 
a 0884 ; ND; 

3 6324 0885 END; 


‘paste rE-sep-1986 00:21:28 yateT? BLisgcS2_v4.0274 Page 


'¢ 

se i ALL done. e ‘RET’ instruction done by the compiled code 
34 & will cut Ry the stack, so we don't need to do it here. 

91 "RETURN; 

92 END; ! of BASSEND_R8S 


RET, BASSSSTOP 

Ei _DX_R 
Tor ge BASSHANDLER 

-EXTRN LIBSF Ree A en “RE TWITGOS 


ND 
8\ 
4 
RE 


aean =m 


TRN BASsR -PROLOSSOR 
-PSECT _BASSCODE.NOWRT, SHR, PIC,2 


57 50 D0 00000 BASSEND_RB aa od 

55 5D 00 00003 MOVL FP. FMP : 

06 ES AS 91 00006 1$: CMPB 0s = 27 (FMP), #6 : 

06 13 0000A BEQL : 

05 —E5 A 91 0000C CMPB -27(FMP), #5 3 

1 12 00016 BNEQ 4$ : 

5 DD 00012 28 PUSHL : 

000000006 00 01 FB 00014 CALLS ASSSUNWIND : 
10 A5 000000006 00 9E 00018 MOV Batt _RET, 16(FMP) : 

52 0¢ aS 00 000 MOVL 12( FMP) PREV, FMP : 

50 000000006 00 9€ 00027 MOVAB BASSHANOLER. RO : 

50 62 D1 0002E CMPL (PREV_FMP), RO ; 

08 13 00031 BEQL = 3 : 

7E 006 BF 9A 900 3 MOV ZBL #BASSK RETWITGOS, -(SP) : 

000000006 90 91 FB 00 CALLS BASSSSTOP ; 
7 DO 0003E 3S: MOVL PREVeE ; 

C3 11 00041 BRB 4 ; 

07 01 ES AS BF 00043 4$: CASEB <37 (EWP), #1, #7 : 
OO1E 0012 0012 0012 0048 5$: <WORD 6$-5$,- ; 
OO1E 002. OO1E 001 0050 68-38. ; 
B3-38.- 3 

$-5$,- : 

$-5$,- ; 

$-5$,- 3 

8s-5$ ; 

Oc 11 00058 BRB $ ; 

59 EC A 00 003A 68: MOVL =20(FMP) , BSFSA_TEMP_STG : 

17 1 Hi BRB 1 ; 

7€ 006 8F 9A 00060 7$: MOVZ2BL W#BASSK_ILLEXIDEF, -(SP) F 

A 11 00064 BRB 1 ; 

7E 006 8F 9A 0066 8$: MOVZBL #BASSK_PROLOSSOR, -(SP) ; 

4 11 0006 BRB 1 F 

7E 006 F 9A OOO6C S$: MOVZBL #BASSK_ERRTRANEE, -(SP) ; 


; Routine Size: 250 bytes, 


000000006 01 
a 
7 00G 8F 
000000006 06 
F 
50 1 
§ FB AMG 
000000006 0 
EC 26 A 
a7 
28 EO Bsus 
000000006 ? 
EE 56 
01 06 =A 
39 
BB AS 
s 8 8 
54 33 40 A? 
54 53 
2 
06 =A 
0 
046 =A 
Oc OA 
000000006 00 0 
28 OB A 
0 6040 
52 2 02 
5 14 
5 5 
D 
Routine Base: _BASSCODE 
1 
: END 
0 ELUDOM 


PSECT SUMMARY 
Bytes 


250 NOVEC.NOWRT, 


—own 
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- 


f 5 
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6-Sep- 


1986 98:62:68 


pared) Ot legate od ele | 
BASRTL.SRC JBASEND.832; 


108: CALLS #1, BASSSSTOP 

118: CRPL 73 (FMP), ARGLIST 
MOVE BBASSK PROLOSSOR, =(SP) 
CALLS #1, BASSSSTOP 

128: CLAL TER 
BRB 4 

13$:  ASHL #1, COUNTER, RO 
MOVAL -8(BSFSA_TEMP_STG)CROJ, RO 
JSB STRSFREET_DXx_R4 

148: AOBLEQ 4BCARGLIST) , COUNTER, 13$ 
MOVZ2WL 4OCARGLIST). R 
CLRL TER 
BRB 6 

15$: MOVAQ @-32(FMP)CCOUNTER], RO 
SUBL2# 
JSB STRSFREE1_DX_R4 

16$:  AOBLEQ RB, COUNTER,~15$ 
CMPB = &(ARGLIST), #1 
BLEQU 
TSTL =72 (FMP) 
BEQL «=s«19$ 
MOVL.  <=72(FMP), RTA_DSC 
ADDL3 64 (ARGLIST), RTA DSC, END_ADDR 

17$:  CMPL RTA_DSC, END_ADDR 
BGEQ «©=«-:«198 
TSTL 4(RTA_DSC) 
BEQL =:-18$ 
PUSHAB 4(RTA_DSC) 
PUSHAB 12(RTR_DSC) 
CALLS #2, LIBSFREE_vM 

18$:  MOVZBL 11(RTA psc) RO 

VAw  (RO)CROI, RO 

ASHL #2 RO, ARRAY_DSC_SIZE 
ADDL2 #26, ARRAY_DSC_SIZE 
ADDL ARRAY_DSC_SIZE, RTA_DSC 
BRB 17$ 

19$:  RSB 

Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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eat tabeio aad mainte 


Library Statistics 


3 sor----- Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 3 0 581 00:01.1 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASEND/OBJ=0BJ$:BASEND MSRC$:BASEND/UPDATE=(ENH$:BASEND) 
; Size: 250 code + 0 data bytes 


: Run Time 00:09. 
; Elapsed Time: 00:19. 
3; Lines/CPU Min: 5755 
; Lovenes/< Putas 22561 
5 ee Used: 111 pages 
; Compilation Complete 
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